home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis241.d64 / star trek v1.d (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  28KB  |  776 lines
  1. 0 REM(null)
  2. 1 SYS5097:PRINT"[147]        BY: [158]DAVE NEALE  P.O. BOX 1324
  3. 2 [153]"            MEAFORD, ONTARIO  N0H-1Y0
  4. 3 PRINT"[150]ATTENTION:[153] WITH ENOUGH RESPONSE A MORE
  5. 4 [153]"DETAILED VERSION COULD BE IN THE WORKS
  6. 5 PRINT"THAT WILL INCLUDE THE FOLLOWING:"
  7. 6 PRINT"[153]1. [158]SKILL LEVELS   [153]2. [158]A CLASSIC ENDING
  8. 7 [153]"PRINT3. SYSKLINGONS FIRE FIRST IF YOU'RE SLOW
  9. 8 PRINT"[153]4. [158]PRISONER TAKEN FOR INTERROGATION
  10. 9 [153]"PRINT5. SYSKLINGONS SMOKING IF DAMAGED
  11. 10 PRINT"[153]6. [158]OTHER CRAFT TYPES, DIPLOMATIC,SPY.
  12. 11 [153]"PRINT7. SYSCONDITION RESET AFTER A KILL
  13. 12 PRINT"[153]8. [158]SMOOTH SCREEN SCROLLING
  14. 13 [153]"PRINT9. SYSBETTER GRAPHICS, MORE MACHINE CODE
  15. 14 PRINT"[153]10. [158]HIGH RES SCREEN [153]11.[158] TACTICAL SENSER
  16. 15 [153]"PRINT12. SYSNO JUNK LIKE THIS AT THE START
  17. 20 PRINT"[153]SO IF YOU LIKE THIS PROGRAM AND WISH TO
  18. 21 [153]"SEE AN IMPROVED VERSION, THEN SHOW ME
  19. 22 PRINT"YOUR INTEREST BY SENDING [158]$4.00 [153]TO THE
  20. 23 [153]"ABOVE ADDRESS. I'M ALSO INTERESTED IN
  21. 24 PRINT"ANY COMMENTS OR IDEAS YOU HAVE THAT
  22. 25 [153]"COULD BE INCLUDED IN FUTHER VERSIONS.
  23. 38 FORX=1TO38000:NEXT
  24. 40 X=RND(1-TI):SYS52870
  25. 41 REM*****************************
  26. 42 REM*       - STAR TREK -       *
  27. 43 REM*                           *
  28. 44 REM**  ADAPTED BY DAVE NEALE  **
  29. 45 REM***                       ***
  30. 46 REM**  INSPIRED BY G.SOLOMON  **
  31. 47 REM*                           *
  32. 48 REM*   A D.G. PRODUCTION INC   *
  33. 49 REM*****************************
  34. 60 PRINT"[147]":SYS49801:Q$="":O$=""
  35. 100 A$="SPACE, THE FINAL FRONTIER":Y=13:X=1
  36. 120 B$=MID$(A$,Y,X):Y=Y-1:X=X+2
  37. 130 PRINT"[146]"Q$Q$TAB(Y+7)B$:IFY=0THEN220
  38. 140 FORI=1TO100:NEXT:GOTO120
  39. 220 GOSUB15000:F=0:R9=0:KM=0:GOTO231
  40. 230 FORTE=1TO4:DI=INT(RND(1)*39):CH=INT(RND(1)*5)+118:PRINTTAB(DI)"";CHR$(CH);"[146][145]":NEXT:RETURN
  41. 231 PRINTQ$Q$TAB(19)"[164][164]":GOSUB230
  42. 232 PRINTO$"[213][177][195][195][177][201]":GOSUB230
  43. 233 PRINTO$"[164][164][164][164][164][210][210][198][198][195][203][195][177][177][195][202][195][198][198][210][210][164][164][164][164][164]":GOSUB230
  44. 234 PRINTO$"[205] [187][187][187].[163][163][163][163][163][163][163][163][163][163][163][163][163][163].[172][172][172] [206]":GOSUB230
  45. 235 PRINTO$"[205][164][164][164][164][164][183][183][164][164][164][164][164][164][164][164][183][183][164][164][164][164][164][206]":GOSUB230
  46. 236 PRINTO$"[221][221][221][163][197][196][195][198][175][175][198][195][196][197][163][221][221][194]":GOSUB230
  47. 237 PRINTO$"[202][177][203][167][164][164][165][202][177][203]":GOSUB230
  48. 239 PRINTO$"[205][205][207][166][166][208][206][206]":GOSUB230
  49. 240 PRINTO$"[205][205][208][163][163][207][206][206]":GOSUB230
  50. 241 PRINTO$"[205][205][164][206][163][163][163][163][205][164][206][206]":GOSUB230
  51. 242 PRINTO$"[205][206][206][163][163][163][163][205][205][206]":GOSUB230
  52. 243 PRINTO$"[213][165][165] [213][201] [167][167][201]":GOSUB230
  53. 244 PRINTO$"[202][165][165] [202][203] [167][167][203]":GOSUB230
  54. 245 PRINTO$"[205][205][164][164][164][164][206][206]":GOSUB230
  55. 246 PRINTO$"[205][164][164][164][164][206]":GOSUB230:PRINTTAB(19)"[202][203]
  56. 250 [129]J[178]1[164]6:[153]:[141]230:[130]J:[129]I[178]1[164]1800:[130]
  57. 255 [153][163]8)"ONONONONPHASERS LOCKED ON TARGET":[129]I[178]1[164]500:[130]
  58. 258 [153][163]17)"FIRE!!...":[129]I[178]1[164]30:[130]
  59. 259 [151]55595,2:[151]55596,2:[151]1323,81:[151]1324,81:[129]I[178]1[164]100:[130]:[141]10000
  60. 260 [158]5451:[129]C[178]0[164]48:[151]53280,C:[151]53281,C:[130]:[139]R9[178]1[167][142]
  61. 280 [153]"LOAD":[158]49814:[153]"WAIT"Q$"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"[166]12)"(null)LENLENRIGHT$
  62. 283 PRINT"[205][175][175][175] [168][168][168][168][168][168][168][168][168] [167][164][175][175][164][164][210][198][195][203][163][163][163][163][202][195][198][210][164][164][164]
  63. 284 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTO(null)THENVAL(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO(null)
  64. 285 PRINT"[205][164][164][164][164][164][205][160][205][164][164][164][164][206][206]  .[206][197][196][195][198][195][196][197]
  65. 286 [153]"(null)NOT(null)(null)(null)...(null)
  66. 287 PRINT"[205][220][205][205][206].. [172][165]
  67. 288 [153]"ANDASCLEN(null) (null)VALUSRUSRUSRUSRUSRVALSTR$LENASC(null)
  68. 289 PRINT"[206][165]   ... [168]    ...[182]#
  69. 290 [153]"USRLEN(null)TO...    ****  ABS$
  70. 291 PRINT"[163][196][198][175][175][175][175][175][175][175][210][198][195][196][183]
  71. 292 [153][163]14)"NCC-1701":[153][163]9)"THE USS ENTERPRISE":[141]40500
  72. 400 VI[178]53248:[151]VI[170]27,127:[151]VI[170]21,0:[151]VI[170]40,7:[151]VI[170]41,2:[151]VI[170]42,1:V[178]54272
  73. 410 Q$[178]"":Z$[178]"               ":[134]C(9,2),K(3,3),D(9):V[178]54272:[151]V[170]24,31
  74. 430 T[178][181]([187](1)[172]20[170]20)[172]100:T0[178]T:T9[178]23[170][181]([187](1)[172]10):D2[178]0:E[178]3000:[151]248,18
  75. 440 P[178]12:S9[178]260:S[178]0:B9[178]0:K9[178]0:X9[178]0:X$[178]"":X0$[178]" IS ":[151]249,0:[151]180,30:[151]181,0
  76. 460 [150][165]L(L)[178](Q1[172]9[170]Q2)[172]3[170]50450:[150][165]R(R)[178][181]([187](R)[172]7.9[170]1.1)
  77. 470 [150][165]D(D)[178][186]((K(I,1)[171]S1)[174]2[170](K(I,2)[171]S2)[174]2):[150][165]B(B)[178][181]([187](B)[172]8.9)
  78. 490 Q1[178][165]B(1):Q2[178][165]B(1):S1[178][165]R(1):S2[178][165]R(1)
  79. 530 [129]I[178]1[164]9:C(I,1)[178]0:C(I,2)[178]0:[130]I:C(1,2)[178]1:C(2,2)[178]1:C(8,2)[178]1:C(9,2)[178]1
  80. 540 [129]M[178]0[164]2:C(2[170]M,1)[178][171]1:C(4[170]M,2)[178][171]1:C(6[170]M,1)[178]1:[130]
  81. 670 [129]I[178]1[164]9:D(I)[178]0:[130]I:A2$[178]"123456789"
  82. 820 [158]49786:[158]50946:K9[178][194](167):B9[178][194](169):[139]K9[177]T9[167]T9[178]K9[170]1
  83. 1100 [139]B9[179][177]0[167]1200
  84. 1150 L0[178][165]L(0):[139][194](L0)[179]2[167][151]L0,[194](L0)[170]1:K9[178]K9[170]1
  85. 1160 B9[178]1:[151]L0[170]1,1:Q1[178][165]B(1):Q2[178][165]B(1)
  86. 1200 K7[178]K9:[139]B9[179][177]1[167]X$[178]"S":X0$[178]" ARECLOSE"
  87. 1205 L[178][181]([187](1)[172]81)[172]3:[139][194](50451[170]L)[177]0[176][194](50450[170]L)[179][177]0[167]1205
  88. 1210 [151]50452[170]L,0
  89. 1220 [153]"LOADSYS   PRIORITY MESSAGE TO USS ENTERPRISE:":[153][163]16)"CODE II"
  90. 1225 [153]"DEF"K9"KLINGON WARSHIPSLIST HAVE INVADED THE"
  91. 1227 [153]"FEDERATION TERRITORY YOU ARE PATROLLING."
  92. 1230 [153][163]12)"SYSYOUR ORDERS ARE:LIST"
  93. 1245 [153]"DESTROY ALL ENEMY SHIPS BEFORE THEY"
  94. 1250 [153]"ATTACK FEDERATION HEADQUARTERS ON"
  95. 1260 [153]"STARDATE"T0[170]T9"CMD. THIS GIVES YOUSYS"T9"DAYSLIST."
  96. 1265 [153]"THERE"X0$"PRINTCMD"B9"STARBASE"X$"LIST IN THE GALAXY FOR"
  97. 1270 [153]"REPAIRING AND RESUPPLYING YOUR SHIP."
  98. 1280 [153][163]9)"HIT ANY KEY WHEN READY"
  99. 1300 [161]B$:[139]B$[178]""[167]1300
  100. 1320 NQ[178]1:Z4[178]Q1:Z5[178]Q2:K3[178]0:B3[178]0:S3[178]0:G5[178]0:D4[178].5[172][187](1):[141]10500
  101. 1330 [151]49345,Q1:[151]49346,Q2:[151]49328,[165]L(0)[171]50450:[158]50696
  102. 1430 [141]9030:[139]T0[179][177]T[167]1490
  103. 1460 [153]"YOUR MISSION BEGINS WITH YOUR STARSHIP"
  104. 1465 [153][163]4)"LOCATED IN THE GALAXY QUADRANTSYS"
  105. 1470 [153][163]20[171].5[172][195](G2$));G2$:[137]1500
  106. 1490 [153]"NOW ENTERING "G2$" QUADRANT..."
  107. 1500 L0[178][165]L(0):K3[178][194](L0):B3[178][194](L0[170]1):S3[178][194](L0[170]2):NB[178]0:[139]S3[177]0[167]1550
  108. 1510 NB[178]1:E[178]E[170]S:S[178]0:[141]7920
  109. 1515 [153]"SYSWARNING: YOU ARE ENTERING A NEBULA
  110. 1517 PRINT"SYSTEM. MOST DEVICES WILL NOT FUNCTION":FORL=0TO3500:NEXT
  111. 1550 IFK3=0ORNB=1THEN1590
  112. 1560 PRINTTAB(14)"[150]COMBAT AREA":PRINTTAB(7)"ALL HANDS BATTLE STATIONS"
  113. 1570 SYS5536:IFS>200THEN1590
  114. 1580 PRINTTAB(8)"[158]SHIELDS DANGEROUSLY LOW":SYS5536
  115. 1590 FORI=1TO3:K(I,1)=0:K(I,2)=0:K(I,3)=0:NEXT
  116. 1680 A$="[193][211][216]":Z1=S1:Z2=S2:L5=0:GOSUB8670:IFK3<1THEN1790
  117. 1720 FORI=1TOK3:GOSUB8590:A$="[218][]":Z1=R1:Z2=R2
  118. 1780 GOSUB8670:K(I,1)=R1:K(I,2)=R2:K(I,3)=S9*(.5+RND(1)):NEXTI
  119. 1790 IFNB=0THENFORSN=1TOINT(RND(1)*5):GOSUB8590:A$="[215][169][215]":Z1=R1:Z2=R2:GOSUB8670:NEXT
  120. 1820 IFB3<1THEN1910
  121. 1880 GOSUB8590:A$="#[214]\":Z1=R1:B4=R1:Z2=R2:B5=R2:GOSUB8670
  122. 1910 IFNB=0THENFORI=1TOS3:GOSUB8590:A$="%&_":Z1=R1:Z2=R2:GOSUB8670:NEXTI
  123. 1980 GOSUB6430:PR=0
  124. 1990 IFS+E>10ORD0=0THENIFE>10ORD(7)>=0THEN2060
  125. 1995 IFD0=1ANDE+S>10THEN2060
  126.